home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
090
/
pctjja86.arc
/
RECURSE1.PRO
< prev
next >
Wrap
Text File
|
1985-11-13
|
92b
|
4 lines
/* Normal recursion test */
f(X) :- write(X), nl, Y is X+1, f(Y), write(Y), nl.
?- f(1).